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TEMP 
FLG: 



LINE PRINTER STATUS ADDRESS 

LINE PRINTER BUFFER ADDRESS 

CONTAINS NEXT ENTRY POINT 

CONTAINS NUMBER OF CHARACTERS PRINTED 

CONTAINS CHARACTER TO BE PRINTED 

1ST CHARACTER OF LINE TO BE PRINTED 

NUMBER OF COLUMNS TO BE PRINTED 

LAST CHARACTER TO BE PRINTED 

LAST CHARACTER TO BE PRINTED 

RELATIVE PAUSE SIZE COUNTER 

OFFLINE TIMER 

ALINES LEFT TO BE PRINTED 

SON-PRINTABLE CODE (USED DURING PAUSE) 

NORMAL PRINT COMMAND 

PAUSE PRINT COMMAND 

CURRENT PRINT COMMAND 

TOP-OF-FORM NORMAL COMMAND 

TOP-OF-FORM (WHEN PAUSING) COMMAND 

CURRENT TOP-OF-FORM COMMAND 

ALINES TO BE PRINTED 

Jf OF PASSES/TOF IF PAUSE IS ENABLED 



LPAF DEC/X11 SYSTEM EXERCISER 
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MOV 
MOV 
TST 
BNE 
MOV 
BIC 
BNE 
MOV 
MOV 
MOV 
ASR 
DEC 
BNE 
ASR 
BEQ 
ASR 
BNE 
BR 



ADDR,R0 
R0,C5RA 
RO<LPSA 
(R0) + 

RO/LPBA 



0. /COLUMN 
l./HDFR 
^l./INTR 
8140, TOP 
$137, T""* 



88 

I81./INTR 
B *"",TOP 

;topi 

|1,SR1 

#176, TOPI 
#177, TOP 

|2,SR1 

8132. /COLUMN 

|l33.,SDFR 

#133.,INTR 

#36,FRST 

ICONT/LINPRT 

SR2 

RESTRT 

|100077,R1 

flOOOO/Rl 
TOFCNT/PSCNTR 



000534' 012767 000001 177530 3$: 



#1,LINPRT 



JGET PRINTER STATUS REGISTER ADDRESS 
;SAVE FOR POSSIBLE ERROR TYPEOUT 
;SAVE LPS ADDRESS 
;TRAP IF NO ANSWER AT NUMBER, 
;ELSE ADDRESS PRINTER DATA BUFFER 
;SAVE PRINTER BUFFER ADDRESS 

;SET UP FOR 80 COLUMNS 

;81 HORDS FR MEM TO LPT 

;81 INTERRUPTS PER ITERATION 

;AND 

;64 CHARACTER SET. 

;96 CHARACTER SET?? 

;N0, BRANCH 

;YES,FIX LIMITS 

>FOR 96 CHARACTER SET. 

;132 COLUMNS?? 

;nq,branch 
;yes, FIX LIMIT. 
;CHANGE DEFAULT 80 TO 
;CHANGE DEFAULT 80 TO 

;(FOR 1ST PASS ONLY) 

jlinprt will CONTAIN 8 LINES tc be prt 

?IF ZERO - A PAUSE IS INDICATED 

;BR TO RESTRT IF NOT ZERO 

;SAVE SRI IN REG 1 

^SEE^IF A PAUSE IS INDICATED 

'H.S 0T 2 ERD " A SPECIAL PAUSE INDICATED 

;|T'S ZERO - USE DEFAULT PAUSE 

;INIT COUNTER FOR TOF 

;GET READY TO POSITION SRI BITS 

JSHIFT SRI BITS RIGHT 

;DEC THE COUNTER 

;DONE ? NO BR IF NOT 

;REDUCE LINES TO BE PRINTED BY 1/2 

;IF ZERO, GO SET TO 1 

;SHIFT THE BITS 

;br if not at zero 

; fi9"£ ~ LINPRT I s N°« FRACTIONAL 
;PART OF ICONT - IT CONTAINS THE 
;# OF LINES THAT HILL BE PRINTED 
;PER PASS 
PONLY ONE LINE TO BE PRINTED/PASS 



33(«WDS FROM MEM) 
33(# INTERUPTS) 
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,.._._ 016700 
000546' 01272" 




1772 
Q 0007 
1772 



mm mm 
mm mm 



000652' 016767 

mm- mm 

000670* 005367 



177352 



177412 
177424 

177366 
177400 



IS! 



MOV 
HQV 
MOVB 



MOV 

BIC 

MOV 

CMP 

BNE 

MOV 

BR 

fST 

BEQ 

CMP 

BNE 

MOV 

DEC 

BR 

MOV 

BR 

MOV 

DEC 



VECTOR, R0 



SC.U 1UK/HV 

#INSERV,(R0)+ 
8R1,(R0) 



NPRCMD,CPRCMD 
M00,@LPSA 
LINPRlLPRTLIN 
ICONT,LlNPRT 

TOFNC,CTOFC 

DOPASS 

PSCNTR 



IS 



FCNT, PSCNTR 

f§FNC,CTOFC 

PSCNTR 

DOPASS 

TOFCNT, PSCNTR 

DOPASS 

TOFPC,CTOFC 

PSCNTR 



JGET INTERRUPT VECTOR ADDRESS 

;PLACE IT INTO VECTOR AREA 

JAND PSW ALSO. 

;VECTOR STUFF DONE HERE BECAUSE HE MAY 

;HAVE RUN THE MODULE,DESELECTED IT,, 

;TURNED ON THE LP DRIVER (LPON COMMAND) 

;AND THEN SHUT IT OFF(LPOFF) AND RE- 

;enabled THE MODULE. SO WE'D NEED THE 

5VECTOR INTO THIS MODULE AGAIN 

>ENABLE LINE FEEDS 

jDISABLE INTERRUPTS 

;SAVE 1 OF ACTUAL LINES TO BE PRINTED 

;IS A PAUSE DESIRED ? 

;yes BRANCH 

jnq - set up normal tof 

;go to work 

;is it zero ? 

;yes - go restore count 

;n0 - but is it time for normal tof ? 

;N0 - BRANCH 

5yes - set up normal tof 

decrease count 

;go to work 

;restore count of passes 

sgo to work 

}set up pause tof 

jdecrease pscntr 



LPAF DEC/X11 SYSTEM EXERCISER MODULE 
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000674* 005067 

000700* 012767 

000706* 052777 

000714* 104400 



177332 

000740* 177322 
0QQ1QQ 177310 
000000* 



DOPASS: 



CLR CHACNT 

MOV #PAGE,NEXT 

BIS flOO,§LPSA 

EXITS, BEGIN 



SEQ 0010 



;CLEAR CHARACTER COUNTER 

$ADJUST POINTER 

JSET INTERRUPT ENABLE 

JEXIT TO MONITOR. 



MODULE WAIT FOR INTERRUPT. 



m 



000720* 005777 
000724* 100003 

000726* 000004 

000734* 000177 

000740* 012767 
000746- 016777 
000754- 000002 



000756 
000762 



177300 

000000' 

177270 

000756' 
177316 



proced: tst 

BPL 



JLPSA 



;ERROR BIT?? 
?N0, SO BRANCH 



£lRQ$, BEGIN, WAIT ; QUEUE UP TO CONTINUE_AT_WAIT_AND RTI 



mm 



177222 




1SS 

PAGE: 



3$: 



3mp 

MOV 
MOV 
RTI 

INC 

flRQS 



#LINE,NEXT 
CTOFC,@LPBA 



,BEGIN,3$ 



SFOLLOW POINTER TO NEXT ENTRY. 

;ADJUST POINTER 

JISSUE TOP-QF-FORM CODE 

;HE ARE GOING TO PIRQ - SET FLG 
";~QuiuI~UP~T0~CONTINui AT 3$ AND RTI 



ENDITS, BEGIN 



TST 
BEQ 
INC 
CMP 
BNE 
MOV 
MOV 
MOV 




88_ 
8" 



102' 001404 
104* 016767 

...iir- mm 

001122- 016767 
QQlfSo: 005767 

M 



\h' 0050 
"42* 0167. 
50' 104400 



177140 
177126 
177144 

mm 

000000* 



177164 



IW1M 



1$: 



2$: 
3$: 



CMP 

BEQ 

INC 

INC 

CMP 

BNE 

MOV 

TST 

BEQ 

MOV 

BR 

MOV 

MOV 

TST 

BEQ 

CLR 

MOV 

EXITS, BEGIN 



CHACNT, COLUMN 

DUN 

CHACNT 

CHAR 

TOP, CHAR 

tt40,CHAR 
PRTLIN 

CHAR, TEMP 

PPRCMD,CPRCMD 

NPCODE,TEMP 

FLG 

FLG 

TEMP,@LPBA 



sSIGNAL END OF ITERATION. 
JMONITOR SHALL TEST END OF PASS 

•PRTNTTMC *? 

;YES SKIP INCREMENTING FRST 

;GET STARTING CHARACTER,, . 

STOP OF CHARACTER SET REACHED?? 

;N0, CONTINUE 

JYES, START SET OVER 

JGET NEW FIRST CHARACTER 

;ADJUST POINTER 



DONE THIS LINE? 

YES, GO TO DUN 

NO, READY ANOTHER CHARACTER 

FofiM NEXT CHARACTER TO BE PRINTED 

TOP OF CHARACTER SET? 

NO, CONTINUE 

YES START OVER WITH A SPACE CHARACTER 

ARE WE THROUGH PRINTING ? 

IF THROUGH PRINTING BR TO NON 

SAVE WHAT WE'RE DOING 

GO SEE IF WE PIRQ'ED 

INHIB LINE FEED 

SAVE NON-PRINT CODE 

HAVE WE PIRQ'ED ? 

NO -BRANCH 

YES - CLR FLG 

ftUn MflVF TPMP Tfl I P 

JEXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 



001154* 016777 177116 177044 4$: 



TEMP,@LPBA 



;NO 



WE HAVENT PIRQ'ED - MOVE 
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1 



001162* 000002 



;TEHP IN TQ LP AND RTI 
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OOlllH -_ 
001172 • 00 

«JHM: Ik 

001230* 



005767 177062 



ollE? 177054 



14* 001407 
I"" 



001234* 
001242* 



005067 
016777 
104400 

mm 



177024 



DUN: 
1$: 



177064 

1??834 176776 
000000' 

177022 176764 4$: 



TST 
BEQ 
DEC 
MOV 
CLR 
TST 
BEQ 
CLR 
MOV 



EXITS, BEGIN 



PRTLIN 

1$ 

PRTLIN 
#LINE,NEXT 
CHACNT 

^ G 

FLG 
CPRCMD/0LPBA 



MOV 
RTI 



CPRCMD,@LPBA 



SEQ 0012 



;ARE WE STILL PRINTING ? 

;NQ - SO BRANCH 

;DEC # LINES LEFT TO BE PRINTED 

;SET POINTER FOR A NEW LINE 

;CLEAR CHARACTER COUNTER 

?HAVE WE PIRQ'ED ? 

;N0 - BRANCH 

;YES - CLR FLG 

;XMIT PRINT COMMAND 

;EXIT TO MONITOR. MODULE WATT FOR 



;NO - HAVE NOT PIRQ'ED 
;COMMAND IN AND RTT 



MOVE PRINT 



001260' 



ma 

017767 



001266* 012767 
001274* 104405 

8811??: mm 



man - 
jblim !?' 



!9»» 

176740 
000006 
000000* 

mm' 

oooooo- 
oooooo- 

"0000- 

T 

176702 



___,§2' 016 ... 
001360* 017767 

001366- 104405 

001374' 104410 

001400' 104403 

mm- mm 



176646 
176640 



000000' 
000000' 



oooooo- 
oooooo- 



1788 

176614 
176612 
000000 
001424- 



176520 
176514 

000000 



001420' 
176610 



1$: 



2$: 



BIC #100,@LPSA 

MOV LPSA*CSRA 

MOV @LPSA,ACSR 

JBY««. „ 

HRDERS,BEGIN,NULL 
* ***************** 

MSGN$, BEGIN, M4 
CLR OFFTIM 

BREAKS/BEGIN 

BREAKS, BEGIN 

BREAKS, BEGIN 

"REARS, BEGIN 
0LPSA 
PICKUP 



TST 

BPL 

DEC 

BEQ 

BR 

MOV 



8 



MOV @LPSA,ACSR 
*********************** 



ENDS, BEGIN 



;CLEAR INTERRUPT ENABLE 
;PROVIDE STATUS REGISTER ADDRESS 
;AND CONTENTS 
;FOR ERROR TYPEOUT. 

****************** **************** A******* 

^PRINTER HAS GONE OFFLINE. . .WAITING 

r*ft ********************************** ******** 

;ASCII MESSAGE CALL WITH COMMON HEADER 
IREADY TIMER. 

5TEMPORARY RETURN TO MONITOR.... 
JTHEN CONTINUE AT NEXT INSTRUCTION. 
TEMPORARY RETURN TO MONITOR.... 
JTHEN CONTINUE AT NEXT INSTRUCTION, 
;ERROR STILL SET?? 

;no, go continue exercise 
;yes, step timer 
;branch if timeout 
;break, then check again 
;time-s up, issue final 
;error message... 

**************************************** 

^PRINTER STILL NOT ONLINE, DROPPING MODULE 
****** ****************************** ****** 



MSGN$, BEGIN, M3 
BIS ""* -' 



toiw,na 5ASCII MESSAGE CALL WITH COMMON HEADER 
ftl00,@LPSA ;RE-ENABLF. INTERRUPT AND CONTINUE 
EXITS, BEGIN ;EXIT TO MONITDR. MODULE WAIT FOR 



M3: 

M4: 



MM3 

177777 
MM4 
177777 



;POINTER FOR MESSAGE #3 
;POINTER FOR MESSAGE #4 



LPAF DEC/X11 
XLPAF0.P11 



SYSTEM EXERCISER MODULE 
12-OCT-78 12:08 
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MM3: .ASCIZ 'SPRINTER ONLINE, CONTINUING EXERCISE%' 



.ASCIZ '%PRINTER ERROR, 



.EVEN 
-END 



'■) 
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ACSR 

ADDR 

ADDR22= 

ASB 

ASTAT 

AWAS 

BEGIN 



004 
010 



248# 
214# 
266# 
252# 
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CROSS REFERENCE TABLE « USER SYMBOLS 



442* 
289 



368 
465 



451 
339 
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